home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-08-02 | 866 b | 40 lines | [TEXT/PJMM] |
- unit Memory;
- interface
- procedure mySetHandleSize (h: handle;
- newSize: size;
- var error: boolean);
- function myNewHandle (logicalSize: size;
- var error: boolean): handle;
- procedure myHandToHand (var h: handle;
- var error: boolean);
- implementation
- {*********************************************}
- procedure mySetHandleSize;
- begin
- if not error then
- begin
- SetHandleSize(h, newsize);
- error := (memError <> noErr);
- end;
- end;
- {*********************************}
- function myNewHandle;
- begin
- if not error then
- begin
- myNewHandle := NewHandle(logicalSize);
- error := (memError <> noErr);
- end;
- end;
- {*********************************}
- procedure myHandToHand;
- var
- err: OSerr;
- begin
- if (not error) and (h <> nil) then
- begin
- err := HandToHand(h);
- error := (err <> noErr);
- end;
- end;
- end.